library(tidyverse)
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.1 ──
## ✓ ggplot2 3.3.3     ✓ purrr   0.3.4
## ✓ tibble  3.1.2     ✓ dplyr   1.0.6
## ✓ tidyr   1.1.3     ✓ stringr 1.4.0
## ✓ readr   1.4.0     ✓ forcats 0.5.1
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
library(plotly)
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
library(ggrepel)
library(readr)

#Lendo

dados <- read.csv("alldata.csv")
dados$MONTH <- factor(dados$MONTH, levels = rev(c("JANEIRO", "FEVEREIRO", "MARCO", "ABRIL", "MAIO", "JUNHO", "JULHO", "AGOSTO", "SETEMBRO", "OUTUBRO", "NOVEMBRO", "DEZEMBRO")))

#Head

head(dados)
##                                NAME AGE   DEATHDAY BIRTHDAY
## 1                ADRIANA PAULA AUDI  48 31/03/2017        -
## 2                   ALCIDES MACHADO  52 31/03/2017        -
## 3 MARIA APARECIDA PEREIRA RODRIGUES  88 31/03/2017        -
## 4           JOAO FELICIO DOS SANTOS  62 31/03/2017        -
## 5     MARIA APARECIDA RIBEIRO SALES  64 31/03/2017        -
## 6   FLAVIANA DE CASSIA PINA SAMPAIO  50 31/03/2017        -
##                     FUNERAL
## 1 VELÓRIO MUNICIPAL PARAISO
## 2 VELÓRIO MUNICIPAL PARAISO
## 3         PARQUE DAS FLORES
## 4             URBAM SALA II
## 5           HORTO SÃO DIMAS
## 6            OUTRAS CIDADES
##                                                     BURIAL YEAR MONTH
## 1 CEMITERIO MUNICIPAL COLÔNIA PARAISO/SJC 01/04/2017 16:30 2017 MARCO
## 2 CEMITERIO MUNICIPAL COLÔNIA PARAISO/SJC 01/04/2017 13:30 2017 MARCO
## 3         CEMITERIO PARQUE DAS FLORES/SJC 01/04/2017 11:00 2017 MARCO
## 4 CEMITERIO MUNICIPAL COLÔNIA PARAISO/SJC 01/04/2017 08:00 2017 MARCO
## 5           CEMITERIO HORTO SÃO DIMAS/SJC 01/04/2017 08:00 2017 MARCO
## 6      CEMITERIO MEMORIAL DO VALE/JACAREI 01/04/2017 08:00 2017 MARCO

#Tail

tail(dados)
##                                            NAME AGE   DEATHDAY BIRTHDAY
## 52123                    ROSSIMAR GOMES DE LIMA  54 01/06/2016        -
## 52124          WELLINGTON MARINHO DO NASCIMENTO  49 01/06/2016        -
## 52125                         BENEDITA DE PAULA  69 01/06/2016        -
## 52126          GERALDA APARECIDA LOPES DA SILVA  69 01/06/2016        -
## 52127                            NEWTON TANAAMI  59 01/06/2016        -
## 52128 VERONICA MARIA CASTELLANO DE VASCONCELLOS  59 01/06/2016        -
##                         FUNERAL
## 52123            OUTRAS CIDADES
## 52124 VELÓRIO MUNICIPAL PARAISO
## 52125            OUTRAS CIDADES
## 52126            URBAM SALA III
## 52127              IGREJA/SALAO
## 52128             URBAM SALA IV
##                                                          BURIAL YEAR MONTH
## 52123        CEMITERIO MUNICIPAL DE TAUBATE/SP 02/06/2016 09:00 2016 JUNHO
## 52124  CEMITERIO MUNICIPAL COLÔNIA PARAISO/SJC 02/06/2016 09:00 2016 JUNHO
## 52125        CEMITERIO MUNICIPAL DE TAUBATE/SP 02/06/2016 08:00 2016 JUNHO
## 52126  CEMITERIO MUNICIPAL COLÔNIA PARAISO/SJC 01/06/2016 15:50 2016 JUNHO
## 52127 CEMITERIO MUN. PE RODOLFO KOMOREK/CENTRO 01/06/2016 15:30 2016 JUNHO
## 52128 CEMITERIO MUN. PE RODOLFO KOMOREK/CENTRO 01/06/2016 13:00 2016 JUNHO

#Óbitos por Ano

ggplotly(
  ggplot(data = dados) + 
    geom_bar(aes(x = YEAR)) + 
    labs(title = "Óbitos por ano segundo site da URBAM", 
         x = "Anos", y = "Óbitos", caption = "Período de 2016 à Junho de 2021") +
    theme_light()
)
ggplotly(
  ggplot(data = dados) + 
    geom_bar(aes(fill = MONTH, x = YEAR)) + 
    labs(title = "Óbitos por ano segundo site da URBAM", 
         x = "Anos", y = "Óbitos", caption = "Período de 2016 à Junho de 2021") +
    theme_light()
)